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GE TBUF F - Obtain Collection & Stat Buffers 16-SEP-19 AX/VMS Macro V04-00 P 1 
W04-000 : ~$eE= 138s 85:08:48 HARKS Bacco vOnOO Page dy 


et it out GET BUFFERS and associated subroutines from 
MONITOR.MAR into separate module. 


1 -TITLE GETBUFF = Obtain Collection & Stat Buffers 
¢. IDENT Foes 000' 
¢ s ennecenerceeoeesreseqacenreeewansseqnenssecensenncenseceqeeeneceesoneeens 
7* « 
§ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3* DIGITAL EQUIPMENT eGORPORATION, MAYNARD, MASSACHUSETTS. a 
0 8 - ALL RIGHTS RESERV * 
° ® 
$60 10 ;* THIS ie is ynny sneo UNDER A LICENSE AND MAY BE USED AND copice ° 
000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
8 1 3* INCLUSION OF THE ABOVE gilt NOTICE. THIS SOFTWARE OR ANY OTHER * 
135 ;* COPIES THEREOF mat rth BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 14 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 12 ‘? TRANSFERRED. : 
ti 15 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 \8 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 i Oe CORPORATION. * 
P4 me 
444 1 3;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 3* * 
0000 4 3" * 
464 5 SRR EAAA AA EATAA AEA AAA AAA AAA AAA AEAAAA AREER A ATE ARAAAEAA TARA Ke eee 
0000 sa 3+ 
8006 8 3 FACILITY: VAX/VMS MONITOR Utility 
9000 0 : ABSTRACT: 
000 13 Called at request initialization time to obtain Collection 
464 § 3 and Stat buffers 
44 : : ENVIRONMENT: eg user mode. 
0000 6 ; AUTHOR: Henry M. evy , CREATION DATE: 28-March-1977 
0000 ee Thomas L. — arella 
4 8 ; 
00 ° , MODIFIED BY: 
000 40 ; 
0% 41 ; v03-003 TLC1090 Thom Cafarella 02-Aug-1984 15:00 
4000 ¢g ; Correct ACCVIOs in ey STEM and PROCESSES classes. 
6 44: v03-002 TLC1066 Thomas L. Cafarella 01-Apr-" 984 11:00 
3 oz 3 Add SYSTEM class. 
00 ‘3 ; v03-001 pRS1908 aul R. Sen 17=F EB-1984 14:00 
49 : 
; : 
$ 0 : : 


Sooooo 
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go) tect ton & Stat Butters 


GE TBUFF - Obtai 
vi aes DECLARATI 
5 .SBTT 
0000 6 SECT 
8 3 INCLUDE FILES: 
60 * 
61 SCDBDEF 
6 SCDXDEF 
900 6 SMRBDEF 
00 64 SMBPDEF 
0000 65 SMONDEF 
o008 6 SSCBDEF 
00 


DECLA 
MONDA 


"SoSEp=1982 88:88:28 YROwYoR.saesceveurroman;1 "29° 3, 


RATIONS 
TA, QUAD ,NOEXE 


Define Class Descriptor Block 
Define CDB Extension 

Define Monitor Request Block 
Define Monitor Buffer Pointes 


Monitor Recordin 
Define STATS Con 


, 


File Definitions 
ol Block 
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GE TBUF F = Obt Collection & Stat Buffers 16-SEP-1984 :06:1 AX/VMS Macro V04-00 Pp 
$54-900 GET_BUFFERS = Obtain Collection & Stat B oS EE a o8e 8350848 EMONYOR. SRCIGETBUFF MAR: 1 ee 3) 
.SBTTL T_BUFFERS - Obtain Collection & Stat Buffers 
0000 “BeECT SBMONCODE NOURT EXE ¥ | 


FUNCTIONAL DESCRIPTION: 
Standard classes: 


This routine obtains 3 number of collection and statistical buffers 

using the LIBS65 TVA facility. For heterogeneous classes, the number 

ned is determined by the 5 symbols COLL_6uFS 

REG_BUFS and PC_BUFS. The buffers are contiguous, forming a block | 

which includes at its beginning. a set of cengyers pointers to the 

y thereafter. The buffer block always 

includes COLL_BUFS collection buffers and REG_BUFS regular stats 
buffers. If percent data is being maintained, PC_BUFS percent stats 

buffers are also included. The buffer block is pointed to by 

COBSA_BUFFERS. 


buffers which follow immediate 


For homogeneous classes, the entire buffer block above is repeated 
once for each item being sree, yee. A set of contiguous pointers 
to the buffer blocks is stored immediately ereserine the blocks, 
and is pointed to by CDBSA_8UFFERS. In addition, following the 
wo ret locks are the SCB TSIATS Control Block) and Element ID 
able. | 

| 


; Non-standard class (PROCESSES): 

: For the core PROCESSES qisplay only one collection 

; buffer, and the display buffer will be obtained. | 
: For the TOP PROCESSES etaqiave one collection buffer 
: and the 5 arrays (DATA, DIFF, ORDER, PID, ADDR) will | 
s be obtained. Space for the FAO control string will also 
;: be obtained, but will not be part of the buffer block. | 
> CALLING SEQUENCE: 
; JSB GET_BUFFERS 
> INPUTS: 
: None 
> IMPLICIT INPUTS: 
: COLL_BUFS global symbol -- number of collection buffers to obtain 
; pee BUFS global symbol -- number of regular stats buffers to obtain 


C_BUFS global symbol -- number of percent stats buffers to obtain 
MARELTS lLobal symbol -- maximum number of homogeneous elements 


RG -- pointer to CDB 
R7 == pointer to MRB 
R11 == pointer to MCA 


OUTPUTS: 


RIPON 2 9 MOON DODOOO0 00000 OO OO 0000009 09 090900090909 SI NINN NNN 
AALAND 2A OOO NAUN EWI 9 OD NAME WIN $$ OOO NAU EWN 9S ODNAUE WN OVOONAULS UMNO O20 


ee ed ed = ot So SS = Ss A 4 — 2 9 2-3 — 3 


L 16 
ff 16-SEP-1984 02:06: AX/VM - 
sent leetian & eae 8 a at 85:88:15 YRONYOR. SRE IGETOUFS MAR: 1 —_ 4) 


i- 
o 


$54-900 GET 8 


ore 
a 
eo 
=-3 


None 
; IMPLICIT OUTPUTS: 


CDBSA_BUFFERS and CDBSL_BUFFERS fields of CDB will contain pointer 
and Length, respectively, of entire chunk of memory obtained. 


SUM, MIN and MAX buffers (and PCSUM buffer, if percent requested) 
are cleared to 0. 


; For TOP PROCESSES class, the DATA array will be cleared to 0. | 
; ROUTINE VALUE: | 
: RO = NORMAL, or error status from LIBSGET_VM, if any. 
; SIDE EFFECTS: | 
: Registers RO,R1,R2,R3,R4,R5,R8,R9,R10 altered. 
6 


ET_BUFFERS:: 


0880 8F BB PUSHR #*M<R7,R11> ; Save regs 


: Get buffers for non-standard class (PROCESSES) 


| 
| 
| 
BBC SC EOOU S50 LOG, PLAGE IRS? 38 ; Continue if a non-standard class 


SIDED DDD DD DDD TTT TU Ee BS BB BE BPW IIIIIronn 
NAME WIN @ 0 OONAUE WIN OOO NAME WN 9 ODNAUE WN" OOONOULSWN—O0OEN OF 


et a et ed ts 4 = 9 os td ss ss 4s 2 


03 4B A604 4 
OOBE 1 $$ BRW ; Otherwise, go process standard 
52 O0000000°EF 00 OVL SPTR,R2 ; Get pointer to SYI 
52 0B A2 3¢ 1 MOVZWL MNR_SYISW_MAXPRCCT(R2) .R2 ; Get max process count 
59 20 A C 1 MOVZWL CDOBSW_BLKCEN(R6) ,R9 ; Get size of one data block 
3 C4 1 MULL oR ; Compute bytes for data blocks 
59 1 co if ADDL #<MNR_PROSK_PSIZE+MNR_CLSSK_HSIZE>,R9 ; Add prefix and class header 
0 3 ee. to get collection buffer size 
54 04 8 1 CLRL RG ; Clear FAO stack (display buffer) b 
43 A? 05 ty ; BITW #<MRBSM_DISPLAY+MRBSM_SUMMARY> ,MRBSW_FLAGS(R7) ; Displaying or summa 
ie S BEQL ; No -- just need collection buffers 
OE 43 A7 OE 3 9 BBC #MRBSV_PROC_REQ,MRBSW FLAGS(R7), 10$ ; Br if PROCESSES not requested 
42 A6 98 1 5 CMPB GREG _PROC , COBSB_ST (ROY ; Regular PROCESSES display 7 
12 th3 4 BNEQ 30 ; No -- go get TOP arrays 
| 
034 73 3 | 
o ? if : Regular PROCESSES display -- get display buffer (FAO stack) | 
6 i - | 
54 52 00000040 8F C5 és : i 108 MULLS #MNR_PROSK_FSIZE,R2,R4 ; Cale FAO stack (display buffer) si | 
54 23 co C A: ADDL R9,R4 ; Add size of both collect ton buffer | 
2 9 0 F 0 ADDL2 R9,R4 3 «ee to FAO stack s 4° 
2a a6 54 0¢ 1 4e 1 ADDLS #12,R4,CDBSL_BUFFERS(R6) : 3.. add enough for 3 pointers | 
gea 4 ¢ BSBW GET_MEM ; Obtain the virtual memory 
03 50 € 4A BLBS RO,20$ ; Continue if obtained OK 


GE TBUF F - Obt Collection & Stat 8B 16-SEP-1984 06:1 AX/VMS Macro V04-00 P 
Sir eboo GET_BUFFERS = Obtain Stat Sutters & Stat B eet 7 $5 :08:45 YRONTOR. SREIGETBUFF MAR: 1 oe ay 
nae BRW GB_RSB : Else, go exit with error | 
"MOVE BSA_BUFFERS(R6) ,RS : Now prepare to load 3 point | 
MOVA tty (R5) : Point first ptr to cotleceion buff | 
ADDLS (R5) ,R9,4(R5) : Point 2nd ptr to 2nd coll buffer 
ADDL3 4(R55,R9,8(R5) ; Point 3rd ptr to FAO stack 
0145 BRW GB_NRSB 3 «ee and take normal return 


a 
U 
0162 «(31 
55 E ns d0 
f 
04 A5 59 6 C 
08 AS = =59 04 AS $ 
1 
0 
: 
Q 
0 


; TOP PROCESSES -Steptey -- get 5 arrays consisting of ‘MAX PROCESS COUNT’’ 
: Longwords each. 


Compuge aoe Baas one array 
Need 5 a 


SOOOoOoooooooooooooooooooooocoeoao 
OOD O99 6909 SII NPA AAA AAAOAAOAOUMIMIVINE SD 


AWS AMANO OL $M SPAAAOAOOSOACOWS OL OOU 


"DOC GCGOOOOO0O00000000 0000000000 


PRoROPORoNORONONoNONoOnony 2 3 2 


| 
ee 2 
o | 
98 C8 ADDL azn ; ade in size” of 2 coll buffs to 
59 «(CC ADDL R? i ee. get total bytes required 
2A Ab 1c cI ADDL Bchst>, R4, CDBSL_BUFFERS(R6) i ee. add enough for 7 pointers 
ger 0 BSBW GET : Obtain the virtual memory | 
0 20 5S BLBS 86.50 $ : Continue if obtained OK 
0130 1 40s BRW GB_RSB ; Else, go exit with error 
| | 
55 2€ Ab 00 MOVL COBSA Pye Fens (ne) AS ; Now prepare to load the 7 poigters 
85 1C AS DE MOVA <4*7>TR5), (R5)+ : Point 1st ptr to 1st coll buffer | 
85 FC AS 59 (C1 ADDL R9,~-4(R5), (R5)+ 3; Point 2nd ptr to 2nd coll buffer 
59 FC AS CO ADDL2 -4(R5),R9 ; Compute addr of first of 5 arrays 
51 05 00 MOVL #5,R1 ; Loop counter 


| 
| 
| 
| 


posttest npn 
| 


| 8 
| eure = Obtain Collection & Stat Buffers i ts ath 9 95:06:18 pth Macro V04-00 Page 6 
\ - GET_BUFFERS = Obtain Collection & Stat B 5=-SEP-1984 00:4 MONTOR.SRCJGETBUFF .MAR; 1 (4) 
9 13 508: 
85 8 | O36 14 OVL R9,(R5)+ ; S’ore array pointer and advance R5 
59 s* 4 9 15 ADDL2 R8,R9 ; Compute addr of next array 
| if) we. 43 1§ SOBGTR R1,50$ ; Loop storing 5 pointers 
a ee eee oF 18 MULLS = #4,,R2,R8B ; Compute size of DATA array 
53 H Ab OD AS 1 MOVL COBSA_BUFFERS (RG) .R9 i se. and get its address 
9 Ag g a 0 MOVL MBPSA_DATA(RY) ,RO $ age 
024D ae BSBW CLEAR_DATA ; Clear DATA array 
OAE 3 
BpAe 4 ; Obtain an FAO control string for PROCESSES/TOP. This buffer 
OAE 5 ; will not be part of the buff'r block, but, instead, will be 
BRAe § : described by the CDB$A_FAOCi< and CDBSL_FAOCTR fields of the 
OAE ; CDB. The FAO control string for STANDARD classes is obtained 
QOAE 8 3 in the TEMPLATE (BLISS=-32) routine. 
OAE 0° 
66 00000000'8F D0 Boag 1 MOVL WFAOCTR_SIZE,CDBSL_FAOCTR(R6) ; Store size of FAO control string 
04 AG =F «008 ; PUSHAL CDB$A_FAOCTR(R6) ; Push addr of Longword to hold 
0088 § 3 «ee FAO control string pointer 
66 DF 0088 34 PUSHAL CDBSL_FAOCTR(R6) ; Now push addr of # of bytes needed 
00000000'GF 02 FB OOBA $32 CALLS #2,G*CIBSGET_VM ; Allocate space 
03 50 9 00C1 36 BLBC RO,80$ ; Branch if failed 
00E4 1 00C4 37 BRW GB_NRSB ; Else take normal return 
00C7 3 80$: 
OOE2 31 44 44 BRW GB_RSB ; Take common error exit 
OOCA sei ; 
95 stg : Get buffers for standard class 
OOCA eh4 k 
Sora 54g OS 
OOCA $13 ; . 
aera 249 ; Get DATA arrays for the special SYSTEM class. 
O0CA 250° 
15 48 A6 «08 =«6€1 OOCA 251 BBC #CDBSV_SYSCLS,CDBSL_FLAGS(R6),93$ ; Br if not SYSTEM class 
43 a7 05 Hy OCF 26 BITW #<MRBSA_DISPLAY+MRBSM_SUMMARY> ,MRB$W_FLAGS(R7) ; Displaying or summa 
OF 1 003 5 BEQL : Br if no -= don't need DATA arrays 
00 42 A6 91 00D5 54 CMPB COBSB_ST(R6) ,MALL_STAT ; ALL stat requested ? 
09 13 0009 55 BEQL ; Br if yes -- don't need DATA arrays 
247 3p itt] 2$ BSW eet SYS_DATA_ARRAYS ; Do what it says 
03 50 3 DE 5 BLES RO,93$ ; Br if successful 
OOCE 1 BEL 28 BRw GB_RSB ; Else take error exit 
Bee $9 : Compute number of bytes to allocate for heterogeneous class buffer block. 
Et 508 oss 
03 48 A605 4 E4 64 i BBC #CDBSV_HOMOG, CDB$i_FLAGS(R6),95$ ; Br if hetero class 
00¢B 1 34 92 one BR HOM_BUFFS z Else go do homogeneous 
54 _00000000'8F 00 E ¢9 , MOVL #<COLL_BUFS+REG_BUFS>,R4 ; Number of buffers to obtain : 
07 45 A6 oS ae FS o8 BBC #CDBSV PERCENT, CDBSW_QFLAGS(R6) . 100$ . if percent not requested, ski 
54 00000000°8F CO OOF 6 ADDL2 #PC_BUFS.R4 : Include PC_oUFS in count of buffer 


_————— 
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v04-000 GET_BUFFERS = Obtain al testian Stat B 5-SEP-1984 02:00:42 (CMONTOR.SRC C16 GETBUFF .MAR; 1 (4) 
ore 70 1008: 
59 O01 14 A6 (C1 FF 71 ADDL3 CDBSL_ICOUNT(R6) ,#1,R9 ; Compute number of data items per b 
104 7 3 «ee + 1 for buffer pointer 
9 4 C€4& 0104 7 MULL #4,R9 i osee tiees 3 - pene are longwo 
9 4 C4 0107 74 MULL R4,RY time f bu ffer 
2A AG «59 00000000" BF ¢ 8} A 75 ADDL ncoLL plete. CLSSK_HSIZE,R9, cobsi BUEFERS(ROS Collection buffers 
107 0 0113 76 BSBW ; Obtain the virtual memory 
03 50 58 8118 77 BLBS 4 105 $ : Br if status OK 
0096 1 0119 78 BRW GB_RS : Else exit with error if failed 


a RE 


14 BA 


oe: 


53 
52.14 
54 = 00" 


54 OFFS 


SOOM BOW COWme Vw DOOM oovu'y 
SOoOfwN RNOLWN "MO FWMN BNO PWHE LUO 


51 1C AA 

50 14 AG 

81 eee) 
F6 50 


58 00 FE AF 00 


WOOVWAFoOVCSs 
rOuUSc-f£0O0O 


MNTZTO OMT"DTO OTF "OOF 
OOMOood P—WOCO PON WOO 


Qe 


co 


fe ae ee wl wow lala lw lo lal alolol ole ole lala lola lola lololeololelelolelelelololeololelolelelelelololeleololelolelololo) 


ek at td a dd sd od 9 sd 8 2 os 2 2 SS SS SS 2 SY SS “Ti ate 


C900 0909 Si NINN EP AAAI BB BEE WWIII WIIIIDININID 2 OO OO OO OO STS 


DOO FAD NNN SS FTE BW UPYV MOO DWYUMIMPVYITMNO OVOVUMISG FPAWOOOMOOMOOOOOOOOOOAOAOO 


HANAN AAM.A MANA AA AAANAGI.AAAAA AA AIA AAAI AAAI IAI GPO PONO NON Po No Nononononononononororoneny 
AAWAAAAGIPIPIPIPOPUDININININDYD 9 = 9 8 | HMDOOODOOOOOOOOOOOOO OOO WCOCo CoCo CD CD OD COCO 


DALE WIN 9 ODNOUE WIN OOO NOA UE WIN (= OOD NAUE WIN O OONAUE WN OOONAOUELSWN—O OF 


; 
Stat 8 S-SEP=1986 08:00:42 EMONTOR. SRCIGEYBUFF.maR;1 "29° (8, 


ioore values for the buffer pointers at the beginning of the buffer block 
ust allocated. 


en 


Register Usage: 
size of most recent buffer 


R35 = address of most recent buffer 

R4 = number of buffers; later used as loop control 

R5 = pgrnter into block of pointers 

R6_ = CDB pointer 

R10 = buffer block pointer 
105$: 

MOVL CDOBSA_BUFFERS(R6) ,R5 ; Store address of ist pointer 

MOVL R5,R10 ; Remember buffer block addr for later MOVCS5 

MULL #4,R4 3; Compute address of ... 

ADDL R4,RS,R3 3 eee 18t buffer 

MOVL R3,(R85)+ ; Move it into 1st pointer 

MULL3 #4,CDBSL_ICOUNT(R6),R2 ; Calculate size of next buffer 

ADDL2 #MNR_CLSSK_HSIZE,R2 ; Add in the header size 
os MOVZBL #COLC_BUFS7R4 3 Loop COLL_BUFS times 

ADDL2 ng -83 ; Calculate address of next buffer 

MOVL R3,(R5)+ 3 «ee and store it into next pointer 

SOBGTR R4,110$ Donen 

SUBL2 #MNR_CLSSK_HSIZE,R2 ; Next group don't have headers 

MOVL R2,R ; Save size of a buffer for later MOVCS 
“i MOVZBL #REG_BUFS-1,R4 : Loop REG_BUFS-1 times 

ADDL2 R2,R3 3; Calculate address of next buffer 

MOVL Ro, (R5)+ 3 ee. and store it into next pointer 

SOBGTR R4,120$ ree 

BBC #COBSV PERCENT, CDB$W_QFLAGS(R6) ,150$ ; If percent not requested, ski 
sie MOVZBL #PC_BUFS,R4 ; Loop PC_BUFS times 

ADDL2 Re «RS ; Calculate address of next buffer 

MO R3,(R5)+ 3 eee and store it into next pointer 

SOBGTR R4, pa 

MOVCS 4#0..,#0,R8.aMBPSA_PCSUM(R10) ; Zero out PCSUM buffer 

MOVCS #0,.,#0,R8,@MBPSA_PCMAX(R10) ; Zero out PCMAX buffer 


Store large positive number (suitable for integer or floating) 
into each longword of PCMIN. 


MOVL MBPSA_PCMIN(R10) ,R1 
MOVL COBSL_ICOUNT(R6) ,RO 


rttigto-et 


3; Get addr of PCMIN buffer 
140$ 3 «+. and number of longwords 
"MOVE ; Move in a large value 
SOBGTR ; Loop back for next one 
150$: 
MOVCS #0,.,#0,R8,a@MBPSA_SUM(R10) ; Zero out SUM buffer 


| vb4-000 cere 


tain Collection & Stat B ters 16-SEP-1984 AX/VMS Mace 0 V04-00 Page HO! 
BUFFERS = Obtain Col ection & Stat B §-8 eats ri 88: 88: i§ ERONTOR. SRE] GETBUFF .MAR; 1 . (3) Tal 
10 BA 58 O00 FEAF 00 2 ] ; 3 MOVCS #0,.,#0,R8,@MBPSA_MAX(R10) ; Zero out MAX buffer 
1 : 
199 40 ; Store large positive “aor (suitable for integer or floating) 
199 41 ; into each lLongword of MIN 
3 ie 
51 OC AA OD 199 44 MOVL MBPSA_MIN(R10) ,R1 ; Get addr of MIN buffer 
50 14 A6 OD 170 rf 160 MOVL COBSL_ ICOUNT (R6) ,RO 3 «+. and number of longwords 
81 Q0000000'8F oo» 1A1 23 MOVL SL ARGE NO,(R1)+ ; Move in a Large value 
F650 =F p1Ag rt: SOBGTR RO,160$ 3 Loop back for next one 
01AB 50 
01AB 51 GB_NRSB: :; Normal return point 
50 OQ0000000'EF 00 B18 26 MOVL NORMAL ,RO ; Indicate successful status 
O1BS 54 GB_RSB: ; Error return point 
0880 8F BA 01B2 55 POPR #*M<R7,R11> ; Restore regs 
05 0186 56 RSB ; Return 


| OX E—————————————————— } 
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Gbae000 GET BUFFERS ~Obtein Cotteceion BStat B SaSePa1ORG Bo;BO:u FMINYOR. eaeicevoureomar:1 "29° 19, vo 
1B7 HOM_BUFFS: 
1By «389 
1B7 60 ; 
\8f $2 ; Compute number of bytes to allocate for homog class buffer block 
1B7 $08 
54 0A6 3C 187 64 MOVZWL CDBS$W_BLKLEN(R6) ,R4 5 eoce © t 
* 08000060" 8F £3 1¢¢ 8 ADDL Penne OPK HSIZE+MNR_HOMSK_PSIZE>,R4 Reqs coltection 
50 5% o000dd00"# Es 105 $67 MULLS FCOLLTBURS RO RO sie 
51 00000004 ' &F DO 4 $3 MOVL #<<<<PC_BUFS+REG_BUFS> * <MAXELTS+1>> + COLL_BUFS+1> * 4>,R1 
07 45 A6 QO ED 104 71 BBS ecyeer PERCENT, CDB$W_QFLAGS(R6) ,10$ 3 esce Add 1 
51 00000000°8F C2 OIDs $72 SuaL2 PC BUFS * <MAXELTS + 1>>,R1 IT BP y 
53 32 a6 «620 O1EK0 «6374—CO~*” OVL  CDBSA_CDXx R3 Sone taags 
58 42606. A3) «(9A «(O1E4)— 375 MOVZBL CDX$B~ID1 CT LAS .RB t i... transformation 
51 C4 OES 76 MULL R8,R1 3 eee. buffers 
50. 351 co pice AG ADDL R1,R0 , aece B18 
51 09 AS) 9A «COTE 379 MOVZBL CDX$B_ELIDLEN(R3),R1 3 «eee Add in Element 
51 03 CO OF 80 ADDL #SCBSR oe | cl 3 «eee ID Table and 
51 00000000 ' 8F C4 «(OF 81 MULL #MAXELTS,R1 t eeee STATS Control 
50 51 C1 OIF Be ADDL3 R1,RO, mie _BUFFERS(R6) t we. Block size 
00E9 30 0201 84 BSBW GET_MEM ; Obtain the virtual memory 
AB 50 E€9 0204 385 BLBC R0,GB_RSB : Exit with error if failed 
0207 386 
0207 387; 
0207 388 ; Now store values for the buffer pointers at the beginning of 
0207 389 ; the buffer block just allocated, and in each of the MBPs (Monitor 
fa 90 ; Buffer Pointer blocks). 
0207 91; 
0207 3 
58 2E A6 D0 0207 9 MOVL CDOBSA_BUFFERS(R6) ,R11 ; Store addr of 1st ptr 
58 4 CS 0208 94 MULL #4,R8,R1 ; Compute addr of ... 
00000000 'E 5B O51 C1 O54p 95 ADDL R1.R11,CB S eos 18t col but 
00000004 ‘EF 90008000" EF 54 C1 oie 96 ADDL R4,CB_ADD BRS. ay S DpRS+ S cos One weet buff 
57 00000004 'EF 54 C1 3 $3 44 ADDL R4,CB_ADD DRS+4,R7 3 «ee and ist MBP 
59 oppoggoo "ae dO a2 B 99 MOVL ones. BUFS : Get number of xform 
07 45 A6 o e1 2 § 400 BC ecbesy PERCENT, CDBSW_QFLAGS(R6) ,20$ ; buffers for use in 
59  00000000'8F co i rt ADDL2 BUFS. 3; the MBP_FILL routine 
E 103 20$: 
8B O57 08 E 404 MOVL R7,(R11)+ ; Store away MBP ptr 
17 «1 41-405 BSBB MBP FILL : Fill the current MBP block 
F858 F5 O 1 06 SOBGTR R8,20$ ; Loop back to fill next MBP 
46 408; 
rf 609 3; Now store addresses of the Element ID Table and the SCB Table. 
46 «411° . 
50 00 46 tig MOVL CDOBSA_CDX(R6) ,RO ; Get addr of CDB eutensten 
10 4 3 b0 4A 41 MOVL R7,CDXSA SCBTABLE (RO) : Store SCB Table addre 
00000000'8F (C1 4E 414 ADDL3 #<SCBSK_SIZE*MAXELTS>,- ; i se. and Element ID Table address 
| 


oa 


on & Stat B 
tain Collect 
BRW 


- AX/VMS Vv04- 
yiters a erSEb= 1382 85:08:18 FRSNTOR. cacicEroUre MAR; 1 
R7,COXSA_ELIDTABLE (RO) 
GB_NRSB ; ALL done == go return 
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UFFERS = Obtain Collection & Stat B 5-SEP-1984 00:4 MONTOR.SRCJGETBUFF MAR; 1 (7) 
A 419 MBP_FILL: 
A is 
A & § : Fill an MBP (Monitor Buffer Pointers block) with the addresses 
2A 425 ; of the transformation buffers immediately following it. There 
a ? ¢ ; is one MBP for each item being displayed. 
3A 436 
rh 2 8 ; Input Registers: 
SA 409: R7 = current MBP addr 
eh r ? : R9 = number of transformation buffers 
SA 432 
SA 4 : MOVL R7,R10 ; Save MBP address for MOVCS below 
2 : : MOVQ CB_ADDRS, (R7)+ ; Store coll buff ptrs in MBP 
64 4 $ MULL3 #4,R9,R5 3; Compute address of buffer ... 
68 4 ADDL2 = R7,R5 3 eee portion of MBP 
Bi 
0268 440 : Move in xform buffer ptrs for the ‘'regular’’ buffers 
0268 441; 
0268 rk 
0 red tar 10$ MOVZBL #REG_BUFS,RO ; Loop REG_BUFS times 
6 6F 445 i MOVL R5,(R7)+ ; Store address of buffer into next ptr 
0 og 446 ADDL2 #<4eMAXELTS>,R5 ; Calculate address of next buffer 
027 447 SOBGTR RO,10$ . kwew 
027C 448 
027C 449 ; 
8 4: $29 ; Move in xform buffer ptrs for the percent buffers if needed 
6 7¢ 42¢ ; 
7¢ 45 BBC #CDBSV_PERCENT, - 
0584 eee CDBSW_OFLAGS (R64) , 308 :; If percent not requested, skip pc buffs 
0 i $38 208 MOVZBL #PC_BUFS,RO ; Loop PC_BUFS times 
8 85 $28 ; MOVL R5,(R7)+ ; Store address of buffer into next ptr 
88 459 ADDL2 #<4eMAXELTS>,RS ; Calculate address of next buffer 
4 8F 460 SOBGTR RO,20$ . pecs 
9 461 
9 186 30$: 
3 237 MOVL R5,R7 ; Save ptr to next MBP for next call 
95 465; ; 
3 £96 3; Initialize buffers which require it. 
ee 
95 $9? BBC #COBSV_PERCENT, - ; If percent not requested, skip pc buffs 
9A 470 CDB$W_OFLAGS(R6) ,50$ 
2 471 MOVCS #0,.,80,#<4*MAXELTS>, @MBPSA_PCSUM(R10) ; Zero out PCSUM buffer 
af. 472 MOVCS #0,.,#0,#<4*MAXELTS>,@MBPSA_PCMAX(R10) ; Zero out PCMAX buffer 
AE 473 
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AE 474 ; 
AE 475 ; store Large positive nyaber (suitable for integer or floating) 
AE 1f8 ; into each longword of PCMIN 
Aa 
51 if AA OD & 138 MOVL MBPSA PEALA (RIO). R1 ; Get addr of PCMIN buffer 
50 00000000'8F oD ? 9 40s MOVL #MAXECTS i «+. and number of Longwords 
81 sites * D B9 4 ¢ MOVL fLARGE WO, (R1)+ ; Move in a Large value 
F650 «OF : ? ? SOBGTR RO,40$ ; Loop back for next one 
C 485 50$ 
0000'8F 00 FE AF 4 es 2c 3 486 MOVCS #0,.,#0,#<4*MAXELTS>,@MBPSA_SUM(R10) ; Zero out SUM buffer 
0000 ° 8F 00 FE AF 0 44 2c cp 487 MOVCS #0,.,#0,#<4*MAXELTS>,@MBPSA_MAX(R10) ; Zero out MAX buffer 
D7? = 488 
D7 489; 
D7? 490 ; Store Large positive ge (suitable for integer or floating) 
0207 491 ; into each longword of MIN 
gr 
51 OC AA 00 6 D7 3 = 494 MOVL MBPSA_MIN(R10),R1 ; Get addr of MIN buffer 
50 00000000'8F 00 8 2 a3 one MOVL #MAXECTS,RO 3 «+. and number of Longwords 
81 00000000'8F DO O2E2 497 #LARGE_NO,(R1)+ ; Move in a Large value 
F650 FS O2E9 498 SOBGTR RO,60$~ 3; Loop beck for next one 
O2EC 499 
05 O2EC 500 RSB 
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BUFFERS = Obtain Collection & Stat B g-36F 71982 85: 88: 18 YRONTOR. © GE TBUFF . MAR; 1 ” (9) 
ED 
ED : GET_MEM: 
ae 
5p § ; Obtain virtual memory for required buffers. 
ae 
44 19 ; Push 2 addresses required by LIBSGET_VM and issue request 
Ep 512° 
2E AG ODF E 18 PUSHAL CDBSA_BUFFERS(R6) ; Push addr of Lenguerd to hold 
2a a6 DE O5FO B18 PUSHAL CDBSL_BUFFERS(R6) | Acs pak oder nt fal toe ded 
3; Now push addr of # 0 es n 
o0o00000°Gr” 02 FR OBES 516 CALLS. #2,G*CIBSGET_VM pares font et 
0 FA 1 $8 3; Return 
fe 819 
FB Q CLEAR_DATA:: 
0 FB 5 , 
8 4 5 § : Initialize the DATA array to zero. 
0 FB 5 ; Input Registers: 
O2FB 65 ; : R8 = size of DATA array 
0 re 5 : 3 R9 = address of DATA array 
0 FB iH : Registers RO-R5 and R8,R9 are destroyed. 
O2FB *§ : The only output of this subroutine is that the 
O2FB 533 ; DATA array is cleared to zeroes. 
eH: 
osre 536 10$: 
58 00007000 8F 01 ere 537 CMPL $3200, R8 :; Is a large MOVCS required? 
19 18 02 538 BGEQ 3; No -- go do a smalier one 
69 7D00 8&F 00 FE AF 2c 304 539 MOVCS i0, #0,432000, (R9) 3; Yes -- ath 32000 bytes 
58 00007000 8F ce str 540 SUBL #3200089 0,R8 ; Cale bytes left to clear 
59 00007000 8F C 14 41 ADDL § 000;R9 3 . and stort ing byte addr 
DE 71 318 2g 208 BRB : Go check size next move 
69 58 00 FEAF 00 2 Hi rt: é MOVCS #0,.,#0,R8,(R9) ; Clear remainder of DATA array 
05 4 4} RSB 3; Return 
48 GET_SYS_DATA_ARRAYS: 
52 eppooone” cf 0 50 MOVL SPTR,R2 3; Get pointer to SYI 
f f 1 MOVZWL MNR_SYISW_MAXPRCCT(R2) ,R2 3; Get max process count 
aE 0% C ¢ MULL #4, R2,R11- ; Compute size r one array 
00000000' 2? 0 ¢5 4 MULLS #76,R11 Sys spATA _LEN : Need 16 arra 
00000000" EF DF 54 PUSHAL SYS. DATA_A : Push addr of Tonquerd to, hold 
4 5 3 ee. SYSTEM DATA geerert p tr 
OOOOO'EF OF 4 § PUSHAL SYS_DATA_LEN ; Now push addr of # of bytes needed 
00000000 ' GF ; FB 4 CALLS +e Gt LIBSGET_VM : Allocate space 
01 E 4F 8 BLBS RO,10$ ; Branch if successful 
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GET BUFFERS = Obtain Collection Stat B SosePa1984 Oo:hoes PASAY ES aese NOH OO ne, Page 13, vo 
05 59 108 RSB 3; Else return with error 
i) ese MOVAL SYS_TOP_VEC,R2 ; Get addr of vector of ptrs 
06 A ¢ MOVL s15-DA ATK _ADOR, RS ; Get ptr to first array 
D o} o7 208: MOVL #16,R4 ; Number of pointers to save 
ae ee One Wat bee 
F on a SOBGTR R4, 208 : Loop back to save next ptr 
6D 

re 70 Now clear the four DATA arrays 

6D 
D D 48 MOVAL SYS_TOP_VEC,R10 ; Get addr of vector of ptrs 
D a oe $08 MOVL #4 ,R7 ; Number of arrays to clear 
dO 77 6 MOVL (R10) RO ; RY must contain array addr 

0 037A 57 MOVL R11,R8 ; R8 gets array Length 

co o860 879 ADDL. FIERTON gig af oe 
£e 383 80 SOBGTR R7,%0$ : Loop back to process next one 
4 $00 81 MOVL #S$$_NORMAL ,RO ; Load up normal status 
0 8D 256 RSB 
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The working set Limit was 1350 pages. 

20622 bytes_(41 pages) of virtual memory were used to buffer_the intermediate gode. 

There were 30 pages of symbol table space allocated to hold 364 non-local ag 1 local symbols. 
source Lines were read in Pass 1, producing 16 object records in Pass 2. 

16 pages of virtual memory were used to define 6 macros. 


GP s 
SCBSB_FLAUS = A 
CBSK~ . | 
SCBSS_FILLER = ° 
SCBSS_FL = 
SCB$S_STA’S BLOCK = 3 
SCBSV_ACTIVE = 1 
SCBSV_CURRENT 2 99 0 
SCBSV_FILLER = 
SCBSW_DBIDX = 000000 
SPTR weereene x 0g 
SS$_NORMAL eeneeeee = = =X | 0 
STATS = 00000005 
STATS_ BLOCK = 00000000 
SYS_DATA_ADDR eeeeeree xX 02 
SYS_DATA_LEN teeereee x 02 
SYS_INFO = 00000000 
SYS_TOP_VEC eeeerere =X 02 
TOPB_PROC = 00000003 
TOPC_PROC = 00000001 
TOPD_PROC = 00000002 
TOPF PROC = 00000004 
teosonm aera eoesecees + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 0.) OO ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
MONDATA 00000000 <( 0.) O10¢ +1.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC QUAD 
SSMONCODE O000038E (¢ 910.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
tosewoerre nan onseaose nner as 
! Performance indicators ; 
}ctpaniaredimamnnmmaaipieinediats 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.09 00:00:00.43 
Command processing 129 00:00 R-fe 00:00:05.16 
Pass 1 169 3: 06 0:00:10.19 
Symbol table sort 0 :00:00.54 0:00:01.12 
Pass 2 11 : +48 9 3: 8:83 -78 
Symbol iable output 4 :00:00.29 :00:00.6 
Psect synopsis output :00:00.04 0:00:00.04 
Cross-reference output :00:00.00 By 9-98 
Assembler run totals 49 0:00:06.11 0:00:23. | 
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! Macro Library statistics ! 


tem eer meme enema mmm mer nr oe ce $ 


Macro Library name Macros defined 


$255$DUA28 : CMONTOR.OBJ JMONLIB.MLB; 1 § 
“$ 55$0UA28: (SYS .OBJILI B; 
“$255$DUA28: CSYSLIB STARLET. MLB; 2 0 
TOTALS (all Libraries) 6 


355 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:GETBUFF /OBJ=OBJ$:GETBUFF MSRC$:GETBUFF /UPDATE=(ENHS$:GETBUFF) +EXECML$/LIB+LIB$:MONLIB/LIB 
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